﻿Imports System.Text
Imports Microsoft.VisualStudio.TestTools.UnitTesting

Imports CQRSAzure.Tools

<TestClass()>
Public Class EventHandledModelUnitTest

    <TestMethod()>
    Public Sub Constructor_TestMethod()

        Dim testObj As New EventHandledModel("EventThatWasHandled")

        Assert.IsNotNull(testObj)

    End Sub

    <TestMethod>
    Public Sub EventName_RoundTrip_TestMethod()

        Dim expected As String = "ExpectedEventName"
        Dim actual As String

        Dim testObj As New EventHandledModel(expected)
        actual = testObj.EventName

        Assert.AreEqual(expected, actual)

    End Sub

End Class